source("plotting.R")
library(tidyverse)


distance_rep = read_csv("../distance_main_effect_10_b.csv")

me = main_effect_rep(distance_rep)
p = plot_main_effect_rep(me,"Effect of relative distance on voting\n(in percentage points)")


#save_plot("figures_for_paper/a10_b.pdf", 
 #         p, base_height = 14, base_asp = 1.5,device = cairo_pdf)
#p = plot_main_effect_rep_default(me,"Effect of relative distance on voting\n(in percentage points)")

save_plot("figures_for_replication/a10_b.pdf", 
          p, base_height = 14, base_asp = 1.5,device = cairo_pdf)